#include <caml/mlvalues.h>
#include <caml/memory.h>

value ml_gluPerspective(value fov, value aspect, value near, value far)
{
  CAMLparam4(fov, aspect, near, far);
  gluPerspective(Double_val(fov), Double_val(aspect), Double_val(near), Double_val(far));
  CAMLreturn0;
}
